home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swaga_c.zip / COMM.SWG / 0066_Maximus STRUCT.200 File Structure.pas < prev    next >
Pascal/Delphi Source File  |  1995-03-03  |  5KB  |  109 lines
  1. {
  2. > does anyone have the file STRUCT.200 available for F'req ?
  3. > it seems to be the structure file of the USERS.BBS ?
  4.  
  5. You should say you're looking for the maximus one. Here's one I've personally
  6. converted:
  7. }
  8.  
  9. { Converted to Pascal by John Stephenson on 7/11/1994, original source }
  10. { supply was from the maximus documentation                            }
  11.  
  12.   maxsingleusertype = record
  13.       {  Caller's name                                                     }
  14.       name : array[1..36] of char;
  15.       {  Caller's location                                                 }
  16.       city : array[1..36] of char;
  17.  
  18.       {  MAX: user's alias (handle)                                        }
  19.       alias : array[1..21] of char;
  20.       {  MAX: user's phone number                                          }
  21.       phone : array[1..15] of char;
  22.  
  23.       {  MAX: a num which points to offset in LASTREAD                     }
  24.       {  file -- Offset of lastread pointer will be                        }
  25.       {  lastread_ptr*sizeof(int).                                         }
  26.       lastread_ptr : word;
  27.  
  28.       {  MAX: time left for current call (xtern prog)                      }
  29.       timeremaining : word;
  30.  
  31.       {  Password                                                          }
  32.       pwd : array[1..16] of char;
  33.       {  Number of previous calls to this system                           }
  34.       times : word;
  35.       {  Help level                                                        }
  36.       help : byte;
  37.       {  Reserved by Maximus for future use                                }
  38.       rsvd1 : array[1..2] of byte;
  39.       {  user's video mode (see GRAPH_XXXX)                                }
  40.       video : byte;
  41.       {  Number of Nulls (delays) after <cr>                               }
  42.       nulls : byte;
  43.  
  44.       {  Bit flags for user (number 1)                                     }
  45.       bits : byte;
  46.       {  Reserved by Maximus for future use                                }
  47.       rsvd2 : word;
  48.       {  Bit flags for user (number 2)                                     }
  49.       bits2 : word;
  50.  
  51.       {  Access level                                                      }
  52.       priv : integer;
  53.       {  Reserved by Maximus for future use                                }
  54.       rsvd3 : array[1..19] of char;
  55.       {  len of struct, divided by 20. SEE ABOVE!                          }
  56.       struct_len : byte;
  57.       {  Time on-line so far today                                         }
  58.       time : word;
  59.       {  Used to hold baud rate for O)utside command                       }
  60.       {  In USER.BBS, usr.flag uses the constants                          }
  61.       {  UFLAG_xxx, defined earlier in this file.                          }
  62.       delflag : word;
  63.       {  Reserved by Maximus for future use                                }
  64.       rsvd4 : array[1..8] of char;
  65.       {  Width of the caller's screen                                      }
  66.       width : byte;
  67.       {  Height of the caller's screen                                     }
  68.       len : byte;
  69.       {  Matrix credit, in cents                                           }
  70.       credit : word;
  71.       {  Current matrix debit, in cents                                    }
  72.       debit : word;
  73.       {  Priv to demote to, when time or minutes run                       }
  74.       {  out.                                                              }
  75.       xp_priv : word;
  76.       {  Bit-mapped date of when user expires.                             }
  77.       {  If zero, then no expiry date.                                     }
  78.       xp_date : longint;
  79.       {  How many minutes the user has left before                         }
  80.       {  expiring.                                                         }
  81.       xp_mins : longint;
  82.       {  Flags for expiry.  See above XFLAG_XXX defs.                      }
  83.       xp_flag : byte;
  84.       xp_rsvd : byte;
  85.       {  Bit-mapped date of user's last call                               }
  86.       ludate : longint;
  87.       {  User's keys (all 32 of 'em)                                       }
  88.       xkeys : longint;
  89.       {  The user's current language #                                     }
  90.       lang : byte;
  91.       {  Default file-transfer protocol                                    }
  92.       def_proto : shortint;
  93.       {  K-bytes uploaded, all calls                                       }
  94.       up : longint;
  95.       {  K-bytes downloaded, all calls                                     }
  96.       down : longint;
  97.       {  K-bytes downloaded, today -- or lastcall                          }
  98.       downtoday : longint;
  99.       {  User's last msg area (string)                                     }
  100.       msg : array[1..MAX_ALEN] of char;
  101.       {  User's last file area (string)                                    }
  102.       files : array[1..MAX_ALEN] of char;
  103.       {  Default compression program to use                                }
  104.       compress : byte;
  105.       {  Reserved for future use                                           }
  106.       rsvd5 : byte;
  107.       extra : longint;
  108.   end;
  109.